home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / DEC / DI9512CJ / demo2u.dfm / demo2u.txt
Text File  |  1995-10-22  |  1KB  |  70 lines
  1. object Form1: TForm1
  2.   Left = 296
  3.   Top = 128
  4.   Width = 339
  5.   Height = 251
  6.   Caption = 'Demo2 - FindKey Example 1'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   TextHeight = 16
  15.   object Label1: TLabel
  16.     Left = 29
  17.     Top = 11
  18.     Width = 121
  19.     Height = 16
  20.     Caption = 'Customer Number:'
  21.   end
  22.   object DBGrid1: TDBGrid
  23.     Left = 8
  24.     Top = 51
  25.     Width = 310
  26.     Height = 110
  27.     DataSource = DataSource1
  28.     TabOrder = 1
  29.     TitleFont.Color = clWindowText
  30.     TitleFont.Height = -13
  31.     TitleFont.Name = 'System'
  32.     TitleFont.Style = []
  33.   end
  34.   object Button1: TButton
  35.     Left = 30
  36.     Top = 178
  37.     Width = 113
  38.     Height = 33
  39.     Caption = 'FindKey'
  40.     TabOrder = 2
  41.     OnClick = Button1Click
  42.   end
  43.   object Edit1: TEdit
  44.     Left = 170
  45.     Top = 9
  46.     Width = 121
  47.     Height = 24
  48.     TabOrder = 0
  49.   end
  50.   object Button2: TButton
  51.     Left = 179
  52.     Top = 178
  53.     Width = 113
  54.     Height = 33
  55.     Caption = 'FindNearest'
  56.     TabOrder = 3
  57.     OnClick = Button2Click
  58.   end
  59.   object DataSource1: TDataSource
  60.     DataSet = Table1
  61.     Left = 29
  62.     Top = 30
  63.   end
  64.   object Table1: TTable
  65.     TableName = 'newcust'
  66.     Left = 67
  67.     Top = 36
  68.   end
  69. end
  70.